PAGE % 


0X100 


EOAPER SRC ^OAD PROGRAMS FOR INTERACTIVE MODEi 

iTlTlE LOAD programs FOR INTERACTIVE MOPE 
/copyright sIANUARYi XV70 

/DIGITAL EQUIPMENT CORPORATION? MAYNARP, MASS, 

/ED HILTON 
/7--2/-7X 

/ 

,ABS 

,LOC XX00 
/ 


000^360 

UPREFX=560 

00027X 

UPAR0W=271 

000t?40 

PSOD=540 

0005322 

TYP0NE=522 

000460 

TSIXBT=460 

000^X4 

CRLF = 5i;4 

0002t>3 

WAIT=253 

000SI33 

LR0T6=533 

0B2S26 

AGTLSTpDTBUF 

000X20 

GETMONi=l20 

000561P 

DIRECT=565 

000024 

BLKNUM524 

000314 

READ=314 

0007P6 

SLINKS766 

000247 

CHAINS247 

700312 

KRB=7003X2 

700311 

KSF?7003H 

707764 

EBA=707764 

707702 

EEM?707702 

lEUE 



o 


o 


o o 

PAGE 2 EOAUEH SRC UOAD PROGRAMS FOR INTERACTIVE NODE, 


0 

0U00 

100514 

UOADER 

^MS 

CRLE 

o 


01101 

100560 


JMS 

UPREFX 



01102 

707764 


EBA 


o 

o 

01103 

707701 


EEM 



01104 

777777 


LAW 




01105 

043246 


OAC 

CdRMAP# 

o 

o 

01106 

140100 


D^M 

100 /CEEAR IS interactive 


01107 

700312 


KRB 




01110 

203217 


LAC 

(SUINKbI /CI.EAR LINK TABLE 

10 

o 

o 

01111 

040010 


DAP 


01112 

777753 


LAW 

b25 



01113 

043247 


DAC 

PMEMS2# 

o 

o 

01114 

160010 



10 


01115 

443247 


IS2 

QMEMS2 



01116 

601114 


gMP 


o 

o 

01117 

203270 


LAC 

(TSYSLPs), /SYSlOD 


01120 

100460 


JMS 

TSIXBT 



01121 

100514 


JMS 

PLP 

o 

o 

01122 

200452 


LAC 

452 


01123 

741200 


SNA 



o 

01124 

601134 


JMP 

LOAD, 6 

o 

01125 

200101 


LAC 

101 


01126 

5032n 


AND 

(7777 



01127 

543271 


SAD 

{Yiii 

o 

o 

01130 

741000 


SKP 



01131 

601134 


JMP 

LOAD, 6 



01132 

200101 


LAC 

101 

o 

o 

01133 

601233 


JMP 

LdADRP 


01134 

777777 

1, OAD 1 6 

y 

LAW 


o 

o 

01135 

040452 


DAC 

/ 

LAC 

4S2 


01136 

203272 


(TMEMSZ>-1*400000 /MEMSIHE?! 

o 

o 

01137 

100460 


JMS 

TSIXBT 


01140 

143247 


D2M 

DMEMSZ /OESIRED memory to BE USED FOR PROGRAM 



01141 

744000 


CLL 

o 

o 




.EJECT 


o 






o 

o 






o 

o 






o 

o 






o 

o 






o 

o 






o 


o 


o 


o 





o 

o 





o 


PAGE 3 

LOADER 

SRQ load programs FOR INTERACTIVE MOOEi 

o 


100253 

loaora JMS 

WAIT 

/WAIT FOR KEYBOARD INPUT O 


01143 

543273 

sad 

(203 



01144 

600120 

JMP 

GETMON 

/RUBOUT? O 

o 

01145 

543274 

SAD 

(377 


01146 

601160 

vJMP 

LQADRB 

/YES 

o 

01147 

543275 

SAD 

(215 


01150 

6011/0 

JMP 

LOADRC 

/A carriage return terminates memory SI2E O 


01151 

5032/6 

AND 

(0000/7 

/MASK OFF TO TRIMMED ASCII 

o 

01152 

043256 

DAD 

tempa^ 


01153 

203247 

LAC 

DMEMS£ 

O 


01154 

100533 

JMS 

LR0T6‘' 


o 

01155 

243256 

XOR 

TEMPA 

o 

01156 

043247 

DAC 

PMEMSzJ 


01157 

601142 

JMP 

/ 

LOADRB lac 

LOADRA 


o 

01160 

203247 

DMEMS2 

/A RUSQUT BROUGHT US HERE O 


01161 

503277 

AND 

(777700 

/DEUETE EAST CHARACTER TYPED 

0 

01162 

744000 

CLL 

/AND ECHO A BACK SLASH S, 

01163 

102236 

JMS 

RR0T6 

o 


01164 

043247 

DAC 

0MEMS2 


o 

01165 

760334 

LAW 

334 

o 

01166 

100522 

JMS 

TYRONE 


01167 

601142 

JMP 

LOADRA 

/GO BACK AND MSTEN FQR NEXT CHARACTER 

o 



.EJECT 


o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





o 

o 





■ 

o 

o 





O ' 


o 


o 
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EOAPEH 

SRC eqad programs for interactive mode, 

o 

01170 

203247 

LOADRC 

EAC 

DMEMSZ 7DMEMSZ 


01171 

741200 


SNA 

/MEMORY 

o 

01172 

600122 


JMP 

GETMON-^2 

01173 

543300 


SAD 

(007013 


01174 

601216 


JMP 

lfS8K' 

o 

01175 

543301 


SAD 

(616213 

01176 

601220 


JMP 

ITS12K 


01177 

543302 


SAD 

(616613 

o 

01200 

601222 


JMP 

ifSl6K 

01201 

543303 


SAD 

(6^6013 


01202 

601224 


JMP 

jfS20K 


01203 

543304 


SAD 

(626413 

o 

01204 

601226 


JMP 

JTS24K 


01205 

543305 


SAD 

(627013 


01206 

601230 


JMP 

lfS28K 

o 

01207 

543306 


SAD 

(636213 


01210 

601232 


JMP 

ITS32K 

o 

01211 

760212 


LAW 

H2 

01212 

100522 


JMS 

TYRONE 


01213 

760277 


LAW 

z1i 

0 

01214 

100522 


JMS 

TYRONE 

01215 

601135 


JMP 

LOADRArS 


01216 

203307 

ITS8K 

LAC 

(017777 

o 

01217 

601233 


JMP 

LOADRD 

01220 

203310 

JTS12K 

LAC 

(027777 


01221 

601263 


JMP 

LOADRP 

o 

01222 

203311 

ITS16K 

LAC 

(037777 

01223 

601233 


JMP 

LOADRP 


01224 

203312 

ITS20K 

LAC 

(0477/7 

o 

01225 

601233 


JMP 

LOADRP 

01226 

203313 

ITS24K 

LAC 

(057777 


01227 

601233 


JMP 

LOADRP 

o 

01230 

203314 

ITS28K 

LAC 

(067777 

01231 

601233 


JMP 

tOADRD 


01232 

203315 

ITS32K 

LAC 

.EJECT 

(077777 


o 

o 

o 

o 


CONTAINS 6 BIT ASCII OF O 

SIZE TYPED IN, 

O 

O 

O 

o 

o 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o o 

o o 


o 


o 


o 







(J 

o 







o 


PAGE 

LOADER 

SRC EOAD PROGRAMS FOR INTERACTIVE MOOEi 


o 

0X233 

043253 

LOADRD 

DAC 

SLPAPR^ 

/STORE HIGHEST AVAILABUE MEMORY ADDRESS 

o 


0X234 

043241 


DAC 

cldadr# 



o 

01235 

040X01 


DAC 



o 

0X236 

777727 


LAW 

»5X 

/NOW CtEAR THE ACTLST AND INSERT 


0X237 

043242 


DAC 

CNTR^ 

/the program titles in iSIXBT 


o 

0X240 

203316 


LAC 

(ACTLST^X 


o 

0X24X 

040010 


DAC 

X0 



0X242 

0400U 


DAC 

xi 




0X243 

040013 


DAC 



o 

o 

0X244 

040016 


DAC 

16 



0X245 

1600X0 



XD 




0X246 

443242 


IS2 

CNTR 


o 

o 

0X247 

60X245 


JMP 

1^2 



0X250 

2033X7 


LAC 

U) 



o 

0125X 

043250 


DAC 

MUM# 

/program number 

o 

0X252 

X4322X 

loadrg 

02M 

A 

/THESE ARE temporary STORAGE LOCATIONS 


0X253 

143222 


DHM 

B 

/FOR TITLES OF PROGRAMS TO BE INSERTED 


0 

0X254 

111111 


LAW 

■«7 


o 

0X255 

043237 


DAC 

CARCNT# 

/CHARACTER COUNTER FOR PROGRAM TITLES 


0X256 

203320 


LAC 

(TITLL^1*^00000 

/THEY ARE LIMITED TO SIX CHARACTERS 


0 

0X257 

100460 


JMS 

TSJXBT 

/PRINT TITLE 

o 

0X260 

203250 


LAC 

NUM 

/TEST For program number TO BE TYPED, 


0X26X 

102243 


JMS 

PR2DD 

/they Are 3,«20(DEC1MAL! to be typed 


o 

01262 

760240 


LAW 

240 

/after the designation TITLE, 

o 

0X263 

100522 


JMS 

TYRONE 


0 

0X264 

X00253 

LOADRF 

JMS 

WAIT 

/GO TO WAIT LOOP 

o 

0X265 

543273 


SAD 

(203 

/control 0? 


01266 

600120 


JMP 

GETMON 

/YES, 60 TO MONITOR 


o 

0X267 

543274 


SAD 

(377 

/RUBOUT 

o 

0X270 

741000 


SKP 




0X27X- 

601274 


JMP 

,*3 




0X272 

102273 


JMS 

DBPRSR 


o 

0 

0X273 

60X264 


JMP 

/ 

SAP 

lpadrf 



0X274 

543321 


(375) 

/ALTMODE? 

o 

o 

0X275 

1020^0 


JMS 

CORE 



0X276 

543322 


SAD 

(376) 




01277 

102050 


JMS 

CORE 



o 




/ 



o 


01300 

543275 


SAD 

(0002X5 

/OR terminator? 



0X301 

601313 


JMP 

LOADRE 

0 

o 

0X302 

503276 


AND 

(000077 

/VALID character insert INTO WORD 


0X303 

102213 


JMS 

DBPRSL 



01304 

443237 


IS2 

CARCNt 


o 

o 

0X305 

60X264 


JMP 

LOADRF 



0X306 

X005X4 


JMS 

CHLF 




0X307 

203323 


LAC 

(WHAT'-X*400000 


o 

o 

01310 

100460 


JMS 

tsixbt 



01311 

700312 


KRB 





013X2 

60X252 


JMP 

LPADRG 




O (EJECT “ O 


O O 

o 


o 
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EOAOER SRC 


EQAD PROGRAMS FOR INTERACTIVE MODE, 


01313 

443237 

LOAORE 

ISH 

CARCNT 

01314 

755000 


skpicla 

!CLL 

0131!:> 

601321 


jmp 

1 +4 

01316 

102213 


aJMS 

OBPRSL 

01317 

443237 


IS2 

CARCNT 

01320 

601314 


3MP 

/ 

L,AC 

SNA 

1 w4 

01321 

01322 

203221 

741200 


A 

01323 

601403 


JMP 

LOADRN 

01324 

777742 


LAW 

«36 

01325 

043242 


OAC 

CNTR 

01326 

203324 


LAC 

CPIRECT^l 

01327 

040012 


OAC 

12 

01330 

203221 

LOAORJ 

LAC 

A 

01331 

560012 


SAO^^ 

12 

01332 

601341 


JMP 

,♦7 

01333 

200012 


L AC 

12 

01334 

343325 


TAD 

(000003 

01335 

040012 


DAC 


01336 

443242 


ISZ 

CNTR 

01337 

601330 


JMP 

LOADRJ 

01340 

601400 


JMP 

NdTINO 

01341 

203222 


LAC 

B 

01342 

560012 


SAD<> 

12 

01343 

60134/ 


JMP 

Loadrk 

01344 

440012 


ISZ 

12 

01345 

440012 


ISZ 

12 

01346 

601336 


JMP 

iLJCCT 

l«10 


/UEFT JUSTIFY ONE TO SIX ASCII CHARACTERS 

/IN locations a and B 
/left justify 


/any character in a? possibility of 
/a carriage return typed without any 
/title typed,' that is a terminator, 
/now compare titee with directory 

/COUNTER 

/ADDRESS OF DIRECTORY =1, 


/compare first three chopped ascii characters 

/YES 

/no, Update to look at first part 

/OF NEXT TITUE in DIRECTORY, 


/DONE 

/NO 

/YES, NOT IN DIRECTORY, TELE OPERATOR 


/SECOND PART OK? 

/yes PUT HIM IN ACTLST 

/ado TWO TO DIRECTORY POINTER TO 

/POINT at first PART of NEXT TITLE 


o 


o 


o 


o 


o 


PAGE 


UOAOEH SRC 


LOAD PROGRAHS POP INTERACTIVE MQPE, 


o 


203316 

eoadrk 

LAC 

? ACTLSTril 

/CHECK TO SEE THAT OPERATOR 


013^0 

040010 


DAC 

10 

/HAS NOT ALREADY ENTERED 

o 

013!? 3, 

220010 


LAC<^ 


/THE PROGRAM IN THE ACTIVE LIST 

01352 

741200 


SNA 



01353 

601367 


JMP 

LQADRLr5 


o 

01354 

543221 


SAD 

A 


01355 

601360 


JMP 




01356 

440010 


IS2 

10 



01357 

601351 


JMP 

LQADRK*2 


o 

01360 

220010 


/ 

LAC<» 

10 


o 

01361 

543222 


SAD 

B 


01362 

741000 


SKP 




01363 

601351 


JMP 

LQADRK*2 


o 

01364 

203326 


LAC 

(REDUNrri + 400000 


01365 

100460 


JMS 

TSIXBT 



01366 

601252 


JMP 

/ 

LAC 

LDADRC 


o 

01367 

203221 


A 



01370 

060011 


DAC<» 

11 


o 

01371: 

203222 


LAC 

b“ 


01372 

060011 


DAC<^ 

11 



01373 

443250 


I$2 

NUM 


o 

01374 

203250 

LOADRL 

LAC 

NUM 


01375 

543327 


SAD 

<000037 

/LAST TITLE TYPED? 


01376 

601403 


JMP 

LOADRN 

/YES 


01377 

601252 


JMP 

LOAORG 

/NO 

0 




/ 




01400 

203330 

NOTIND 

LAC 

(NOTiNr?l + 400000 

/GET ADDRESS =1 OF NOT IN DIRECTORY 

o 

01401 

100460 


JMS 

TSiXBT 

/message 

01402 

601252 


JMP 

/ 

JMS 

LQADRG 


0 

01403 

100514 

EOADRN 

crlf 


01404 

777777 


LAW 




01405 

343250 


TAD 

NUM 



01406 

740001 


CMA 



o 

01407 

343317 


TAD 

u 



01410 

043252 


DAC 

PRQCNT# 

/PROGRAM COUNTER, AMOUNT OF PROGRAMS 


01411 

203331 


LAC 

(BUFF^l 

/IN active LIST, 

o 

01412 

040014 


DAC 

14 

/BUFFER FOR BUBBLE SORT 


01413 

0400X0 


DAC 

10 



01414 

777602 


LAW 

»^i76 


o 

01415 

043242 


DAC 

CNTR 


01416 

160010 


D2M« 

10 

/clear the buffer 


01417 

443242 


IS2 

CNTR 

o 

01420 

601416 


JMP 

1 JECT 

1 ’^2 



EISTED 


(J 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



GE 0 L.OADER SRC l,OAD PROGRAHS FOR INTERACTIVE MQDEi 

/EACH PROGRAM WIEL TAKE 6 LOCATIONS IN BUFFER, 

/THE FIRST TWO WJUL BE THE TITLE, THE THIRD WILL BE THE STARTING BLOCK NUMBER 
/THE FOURTH IS THE PROGRAM SIZE, THE FIFTH WILL BE THE LOAD ADDRESS, 

/THE SIXTH WILL BE A LOAD INDICATOR, 

/ 


01423, 

220013 


LAC<» 

13 

/START OF ACTLST 

01422 

741200 


SNA 



01423 

600247 


JMP 

CHAIN 


01424 

741000 


SKP 



01425 

220013 

LOADRP 

t,AC« 

13 


01426 

043260 


DAC 

TLMPl?^ 

/TEMPI and TEMP2 contain THE TITLE 

0142/ 

060014 


DACtt 

14 


01430 

220013 


LACtt 

13 

/OF THE PROGRAM WANTED BY THE OPERATOR 

01431 

043261 


OAC 

TEMP2^ 


01432 

060014 


OACii 

14 


01433 

203324 


lAC 

CpJRLCTsl 


01434 

040010 

LOAORR 

DAC 

10 

/NOW FIND THAT TITLE IN THE DIRECTORY 

01435 

220010 


UAC<> 

10 

/TO GET WORD COUNT AND THE STARTING 

01436 

543260 


SAD 

t|mpi 

/BLOCK NUMBER, 

01437 

601443 


vJNP 

I * 4 

01440 

200010 


lAC 

10 


01441 

343325 


TAP 

(000003 


01442 

601434 


JMP 

LOAPRK 


01443 

220010 


LACi> 

10 


01444 

543261 


SAP 

TEMP2 


01445 

601451 


JMP 

1 *4 


01446 

203332 


LAC 

(2) 


01447 

340010 


TAD 

10 


01450 

601434 


JMP 

/ 

LAC^i 

lOadrh 


01451 

220010 


10 

/A HATCH OCCURRED, NOW GET SLOCK NUMBER 

01452 

060014 


DAC4 

14 


01453 

440014 


ISH 

14 


01454 

440014 


IS2 

14 


01455 

440014 


IS2 

14 


01456 

443252 


ISZ 

procnt 

/DONE WITH all PROGRAMS? 

01457 

601425 


JMP 

LPAORP 

/NO 


.EJECT 


page 9 LOADER 3HC LOAD PROGRAMS FOR SNTEHACTJVE MOOE, 

/NOW GET ACTUAL PROGRAM SJ^E FROM THE PROGRAMi 
/IT SHOULD BE THE FOURTH WORD ON THE TAPE, 


03.460 

203333 


7 

lAC 

(BUFF*2 


0X4H 

043230 

FIND,0 

DAC 

XI 


03.462 

223230 



XI 


01463 

741200 


SNA 



01464 

6015301 


3MP 

LQAO,0 

/DONE 

01465 

040024 


DAC 

BLKNUM 


01466 

777774 


UAW 

«4 


01467 

040316 


DAC 

re:ad+2 


01470 

203316 


UAC 

(DTBUFrrl 


01471 

040317 


DAC 

RLAD*3 


0147;^ 

100314 


gMS 

f 

READ 

/READ The first block of the program 

01473 

202531 


LAC 

PTBUF + 3 


01474 

443230 


IS2 

xi 


01475 

063230 


PAC» 

XI 


01476 

203230 


LAC 

xi 


01477 

343334 


TAD 

C5 


01500 

601461 


JMP 

/ 

FiND,0 

/get next program 


/NOW SORT BUFFER ACCORDING TO PROGRAM SIZE 


/ 


01501 

143236 

LOAD,0 

D2M 

SWJND 


01502 

203335 


LAC 

(BUFF 


01503 

043230 

LOAD,! 

DAC 

Xi 

/title pointer 

01504 

343325 


TAP 

(i 

01505 

043231 


DAC 

X2 

/program size pointer 

01506 

343325 


TAD 

(3 

01507 

043232 


DAC 

X3 

/SECOND PROGRAM TITLE POINTER 

01510 

343325 


TAD 

(3 

01511 

043233 


DAC 

X4 

/second program size POINTER 


• EJECT 


o 





o 

o 





1 

o 


page: 10 

LOADER 

SRC LOAD PROGRAMS FOR J NTFRACT I VE MQPE, 


o 



/CHECK FOR ENO 

OF E^UFPER 

0 


01512 

223232 

UACtt 

X3 


o 

01513 

741200 

SNA 


O ; 


01514 

601546 

3MP 

E0AB,3 /done with buffer 



01515 

223231 

LAC<> 

X2 


o 

01516 

740001 

CM A 


o 


01517 

343317 

TAD 

u 



01520 

363233 

TADtt 

X4 


o 

01521 

740300 

SHAISZA 


o 


01522 

601526 

3MP 

SWITCH 


o 



/negative: result so just change pointer AND TRY AGAIN, 

o 


01523 

203336 

f 

EAC 

(6 


0 

01524 

543230 

TAD 

XI 

o 


01525 

601503 

JMP 

y 

LOAD,l 


o 



/SWAP BECAUSE EARGER PROGRAM IS EOWER IN BUFFER 

i 

o 


01526 

777777 

switch EAW 

el 


o 

01527 

043236 

OAC 

SWING 

o 


01530 

777772 

LAW 

rj 6 



01531 

043242 

DAC 

cntr 


o 

01532 

223230 

E0AD,2 EAC» 

XI 

o 1 


01533 

043231 

DAC 

X2 



01534 

223232 

LAC» 

X3 


o 

01535 

063230 

DAC<» 

xi 

o 


01536 

203231 

LAC 

X2 



01537 

063232 

DAC*» 

X3 


o 

01540 

443230 

IS2 

xi 

o 


01541 

443232 

ISZ 

X3 

■ 


01542 

443242 

IS2 

CNTR 


o 

01543 

601532 

UMP 

LPOf? 

o 


01544 

203230 

LAC 

XI 


o 

01545 

601503 

UMP 

J 

EOAOtl /switch done, try next procrams 

o 




/CHECK FOR reversals MADE IN SORT, 


o 



/ 


o 


01546 

443236 

E0AD.3 IS2 

swing 



01547 

741000 

SKP 



o 

01550 

601501 

JMP 

LOAD,? /REVERBAE made DO BUFFER AGAIN, 

o 




.EJECT 



o 





o 

o 





o 

o 





o 

0 





o 

C) 





o 



o 

page 11 EOAOER SRC t,0AD PROGRAMS FOR INTERACTIVE MOOEi 

O 016S1 7T/T/i] ^AW ”10 

01562 0A3225 DAC ITRCNT /SET UP FOR ITERATIONS THROUGH UST, 

/ 

O /EACH PROGRAM WIEL BE TESTED TO SEE IF IT CAN FIT IN THE REMAINING 

/ROOM between a pointer somewhere in a 4K FIE(,D AND THE BOTTOM 
/OF THAT 4K FIELD, IT'NO PROGRAM CAN FIT IN THE REMAINING SPACE 
O /THE THE POINTER IS MOVED TO THE TOP OF THE NEXT LOWER 4K FIELD. 

/EACH PROGRAM'iS THEN'TRIED AGAIN UNTIL ALL PROGRAMS ARE LOADED. 

/OR THE TOP OF THE OPERATING SYSTEM IS REACHED, THEN NO MORE PROGRAMS GAN 
O /BE LOADED, 

/ 


o 


203335 


LAC 

(BUFF 



043230 

COMP,0 

DAC 

XI 

/XI contains ADDRESS OF TITLE WORD 


015^5 

343325 


TAD 

(3 


o 

01556 

043233 


DAC 

X4 

/xacontains the address of the program size 

01557 

343317 


TAD 

(i 



01560 

043234 


DAC 

XJ3 

/XS CONTAINS THE ADDRESS OF THE LOAD ADDRESS 

o 

01561 

343317 


TAD 

(i 


01562 

043235 


PAC 

X6 

/X6 CONTAINS THE ADDRESS OF THE LOAD INDICATOR 


01563 

223230 


L AC» 

x| 

/ANYTHING LEFT IN LIST? 


01564 

741200 


SNA 



o 

01565 

601623 


JMP 

ENDL3T 

/DONE WITH END OF LIST 


01566 

223235 


LAC« 

X6 

/CHECK FOR already LOADED, 


01567 

740200 


SHA 



o 

01570 

601604 


JMP 

C0MP,1 

/ldadeo 


01571 

203241 


LAC 

CLDADH 


0 

01572 

503337 


AND 

(070000 


01573 

043226 


DAC 

L0W4K~' 



01574 

223233 


LAC<i 

X4 


o 

01575 

740001 


cma 



0 157 6 

343332 


TAO 

(2 



01577 

343241 


TAD 

CLPAPR 

/SUBTRACT program SIZE FROM VOID 


01600 

043227 


DAC 

TLAD 

/temp load ADDRESS 

c 

01601 

503337 


AND 

(070000 



01602 

543226 


SAD 

LDW4K~ 



01603 

601607 


JMP 

1 *4 

/DID NOT CROSS 4K BOUNDARY 

o 




/ 




01604 

203336 

COHP.l 

LAC 

(6 


o 

01605 

343230 


TAD 

xi 

/WONtT LOAD, GET NEXT PROGRAM 

01606 

601554 


JMP 

/ 

LAC 

CQMP,0 



01607 

203227 


TLAD 

/CHECK TO SEE IF IT WILL FIT ABOVE MONITOR, 

o 

01610 

343340 


TAD 

(r3400 


01611 

741100 


SPA 




01612 

601604 


JMP 

CDMP,1 

/WON'T FIT 

o 

01613 

343341 


TAD 

(3400 ■' 


01614 

043241 


DAC 

CLDAPH 



01615 

063234 


DAC<> 

X5 

/THIS IS THE loading ADDRESS FOR THIS PROGRAM, 

o 

01616 

777777 


LAW 


/SET LOAD indicator 


01617 

063235 


DAC« 

X6 


01620 

343241 


TAD 

CLDADR 


0 

01621 

043241 


DAC 

CUDADR 



01622 

601604 


DMP 

CDMPii 



o 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



o o 

o o 
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o o 

o o 


o 


o 
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UOADER 


EOAD PROGRAMS FOR INTERACTIVE MODE 


/END OF LIST, MOVE TO TOP OF NEXT 4K BANK, 
/ 



016^^3 

203241 

EIMDLST lac 

CLDADH 


o 

o 

0162A 

503337 

AND 

(070000 



0162^ 

741200 

SNA 




o 

01626 

601633 

JMP 

CLOD, 1^2 



01627 

343342 

TAD 



o 


01630 

043241 

OAC 

CLDADR 




01631 

443225 

IS2 

ITRCNt 


o 

o 

01632 

6 0 1 5 5 v5 

JMP 

/ 

/LAST ITERATION, 

COMP, 0-^1 

/MX DONE 




, SEE IF every 

PROGRAM IS LOADED, 


o 



/ 


o 


01633 

143224 

OHM 

ALLDFG 

/all LOADED FLAG 


o 

01634 

203335 

LAC 

(BUFF 

/SET UP POINTERS, 

o 

01635 

043230 

CLODil DAC 

xi 



01636 

343317 

TAD 

(i 



o 

01637 

043231 

DAC 

X2 



01640 

343343 

TAD 

(4 


o 


01641 

043235 

DAC 

/ 

LAC<» 

X6 



o 

01642 

223230 

XI 


o 


01643 

741200 

SNA 




o 

01644 

601665 

JMP 

LOADPG 

/DONE WITH LIST 


01645 

223235 

LAC« 

X6 


o 


01646 

741200 

SNA 




o 

01647 

101653 

JMS 

NOLOAP 

/SOME PROGRAM CAN NOT BE LOADED, 

o 

01650 

203230 

LAC 

XI 



01651 

343336 

TAD 

(6 




01652 

601635 

JMP 

CLODfl 

/CHECK NEXT program 



/PRINT program name THAT WAS NOT LOADED, 
/ 


0 

01653 

000000 

NOLOAD 0 



o 


01654 

223230 

LACtt 

XI 



o 

01655 

043221 

OAC 

A ■■ 



01656 

223231 

LACtt 

X2 


o 


01657 

043222 

DAC 

A*i 




01660 

203344 

LAC 

( A«1*400000 



0 

01661 

100460 

JMS 

TSIXBT 


o 


01662 

777777 

LAW 





01663 

043224 

DAC 

alldfg 

/SET FLAG TO indicate THAT SOME PROGRAM WAS NOT LOADED 

o 

o 

01664 

621653 

JMP» 

NOLOAP 


lEJECT 


o 


u 



GE 14 LOADER SRC LOAD PROGRAMS FOR iNTERACTlVE MODE, 




/LOAD 

PROGRAMS 

y 

NOW 

a X 6 6 s 

443224 

1^0 ADPG 

f 

ISH 

ALLDP'O 

01666 

601672 


JMP 

1*4 

01667 

203345 


LAC 

(NOFIT 

01670 

ir30460 


JMS 

TSIXBT 

01671 

601100 


JMP 

/ 

LAC 

loader 

01670 

203335 


(BUFF 

01673 

043230 

L0AD|4 

DAC 

XI 

01674 

343317 


TAD 

(1 

01675 

043231 


DAC 

X2 

016 7 6 

3433i7 


TAD 

(i 

01677 

043232 


DAC 

X3 

01700 

343332 


TAD 

(2 

91701 

043234 


DAC 

X5 

01702 

343317 


TAP 

(i 

01703 

043235 


DAC 

/ 

SNA 

X6 

01704 

01705 

223230 

741200 


XI 

01706 

601715 


JMP 

CHKCOH 

01707 

01710 

223235 

740200 


LAC^i 

S2A 

X6 

01711 

601747 


JMP 

LOAD,i? 

01712 

203230 

NXTPRG 

LAC 

XI 

01713 

343336 


TAD 

(6 

01714 

601673 


JMP 

(EJECT 

LOAD, 4 


*400000 


/ALL DONE, CHECK FOR PRINT LINK TABLE 
/PROGRAM WA5 LOADED, 

/GET NEXT PROGRAM 


PAGE IS 


EOADEK SRC 


LOAD PROGRAMS FOR 


interactive mode, 


01715 

443246 

CHKCOR 

ISZ 

CORMAP 

01716 

601721 


JMP 

.+3 

01717 

700312 

CHKRi2 

KRB 


01720 

600122 


.IMP 

GETMON+2 

01721 

203346 


LAC 

(SLINK) 

01722 

043230 


DAC 

xi 

01723 

1005i4 

CHKRil 

sJMS 

CRLF 

01724 

01725 

223230 

741200 


LACi» 

SNA 

XI 

01726 

601717 


JMP 

/ 

TAD 

CHKR»J? 

01727 

343334 


(5) 

01730 

040013 


DAC 

13 

01731 

203347 


LAC 

( AttD 

01732 

040014 


DAC 

14 

01733 

220013 


LAC» 

13 

01734 

060014 


DAC^J 

14 

01735 

220013 


LAC^ 

13 

01736 

060014 


PACii 

14 

01737 

203347 


LAC 

{ A^l) 

01740 

100460 


JMS 

TSfXBT 

01741 

760240 


LAW 

240 

01742 

1005*22 


JMS 

TYRONE 

01743 

223230 


LAC<» 

xi 

01744 

100540 


JMS 

PSQO 

01745 

443230 


isz 

Xi 

01746 

601723 


JMP 

, EJECT 

CHKRil 


/SWITCH SET? 

/YES 

/NO RETURN TO MONITOR 


/DONE EXIT, 


PAGE 
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01747 

223234 

LOAD, 5 

X5 


017^0 

043241 

DAC 

CLDADH 


01751 

043253 

DAC 

SLDADR 


01752 

203271 

lAC 

(777/ 

/SET TO PAGE MODE 

01753 

043251 

DAC 

PGQRBK# 


01754 

223232 

IAC<» 

X3 


01755 

040024 

DAC 

BLKNUM 


01756 

043264 

DAC 

UPDTBK^ 

/UP dated buock number 

01757 

102007 

JMS 

readbK 

/read a buock of tape into memory 

01760 

143240 

D^M 

chksuH# 

/CUEAR CHECKSUM 

01761 

102036 

tOAORW JMS 

GLTWRD 

/GET FIRST WORD 

01762 

102062 

JMS 

WPPAIR 

/IT has to be a WpRO PAIR, INTERPRET IT 

01763 

102036 

JMS 

GETWRD 


01764 

043243 

DAC 

CNTWPl# 


01765 

^032/6 

AND 

(77 


0X766 

043245 

DAC 

CNTND3# 


01767 

203243 

LAC 

CNTWOi 


01770 

102236 

JMS 

RR0T6” 


01771 

043243 

DAC 

CNTWDl 


01772 

503276 

AND 

(77 


01773 

043244 

DAC 

CNTWD2# 


01774 

203243 

LAC 

CNTWPi 


01775 

102236 

JMS 

RR0T6 " 


01776 

503276 

AND 

(77 


01777 

102122 

JMS 

INTPRT 


02000 

203244 

LAC 

CNTWD2 


02001 

102122 

JMS 

iNTPRt 


02002 

203245 

LAC 

CNTWD3 


02003 

102122 

JMS 

INTPRT 


02004 

443266 

is2 

nqcntr^^ 


02005 

601763 

JMP 

LOAORW+2 


02006 

601761 

JMP 

r 1 r r* T 

LDADRW 



, EJECT 


page 


n 

UOAPEK 

SRC UQAC 

1 PROGRAr^ 

IS FOR interactive MODE, 

052010 

000000 

7003il 

readbk 

0 

KSF 


020U 

02012 

602017 

700312 


JMP 

KRB 

1 "^6 

02013 

543273 


SAD 

(203) 

02014 

600120 


gMP 

/ 

SAD 

GETMON 

0201^ 

543350 


(220) 

02016 

60203?, 


JMP 

/ 

UAC 

READBl 

02017 

203264 


UPOTBK /read a BLQCK PROM DECTAPE 

02020 

040024 


DAC 

BLKNUM /dec tape HANDLER 

02021 

443264 


IS? 

UF»DTBK 

02022 

777400 


LAW 

«400 

02023 

043265 


DAC 

WUCNTH^ 

02024 

040316 


DAC 

HEAD+2 

0202^3 

203316 


LAC 

(DTBUFt?! 

02026 

040317 


DAC 

READ+3 

02027 

040017 


DAC 

17 

02030 

100314 


JHS 

READ 

02031 

622007 


J M P 
/ 

JMS 

READBK 

02032 

100271 

READBl 

UPAROW 

02033 

203351 


LAC 

(320)' 

02034 

100522 


JHS 

TYRONE 

02035 

601100 


JNP 

y 

LCADER 

02036 

000000 

GETWRO 

f 

0 


02037 

220017 


LACit 

17 

02040 

043254 


DAC 

SfRG# 

02041 

343240 


TAD 

CHKSUM 

02042 

043240 


DAC 

CHKSUM 

02043 

02044 

443265 

741000 


ISH 

SKP 

WDCNTR 

02045 

102007 


JMS 

READBK 

02046 

203254 


LAC 

StRG 

02047 

622036 


j M P 

/ 

getwrd 

02050 

000000 

CORE 

/ 

0 


02 051 

143246 


D?M 

CORMAP 

02052 

203275 


LAC 

( 215 ) ■ 

02053 

622050 


JMP<» 

/ 

LAC 

SKP 

CORE 

02054 

02055 

203307 

741000 

bkmode 

(1777/ 

02056 

203271 

PGMODE 

LAC 

( 7777 

02057 

043251 


DAC 

pgorbk 

02060 

102036 


JMS 

getwrd 

02061 

622122 


JMP^> 

.eject 

INTPRf 
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02062 

000000 

02063 

P 0 3 0 6 2 

02064 

744000 

02060 

742020 

02066 

742020 


0;^067 1022S6 

02070 740001 

02071 343017 


02072 

043266 

02073 

203254 

02074 

503353 

02075 

t A f/1 7 A 

543334 

A r7i O 1 04 1 

W / 0 

02077 

102036 

02100 

622062 

02101 

102036 

02102 

203240 

02103 

741200 

02104 

601712 

02105 

203354 

02106 

100460 

02107 

223230 

02110 

043221 

02111 

223231 

02112 

043222 

02113 

203347 

02114 

100460 

02115 

700312 

02116 

600122 

02117 

000000 


02120 000000 
02121 000000 


02122 

000000 

02123 

543332 

02124 

602143 

02125 

543325 

02126 

602163 

02127 

543343 

02130 

602173 

02131 

543334 

02132 

602175 

02133 

543355 

02134 

602200 

02135 

543356 

02136 

602054 

02137 

543357 

02140 

602056 

02141 

102036 

02142 

622122 


WPPAIR 


P8UFF 


intprt 


0 


AND 

^377000 

/MASK OFF AUU BITS EXCEPT WORD PAIR COUNT 

CLl 



RTR 



RTR 



JHS 

RRQT6 


CM A 



TAD 

(000001 


DAC 

WQCNTR 


kAC 

STRG 

/NOW check for end of fiue 

AND 

(000007 


SAD 

(000005 


JMP 

1 +3 


JHS 

JMP^ 

GETWRU 

WUPAJK 


JMS 

GETWRU 

/END OF FIUEi get NEXT WORD WHICH 

LAC 

CHKSUM 

/WILL be parity and CHECK OVERAEE PARITY 

SNA 

JMP 

nxtprg 

/GET next program 

I.AC 

JMS 

(CHKSRI'? 

TSIXBt 

1*A00000 /check sum error 

C AD^ 

XI 

/GET TITLE 

DAC 

A 


LAC» 

X2 


DAC 

A-^*! 


lAC 

( A>r^l 


JMS 



KRB 


JMP 

/ 

0 

0 

GETMON+2 


0 

/ 

0 

SAP 

(000002 


JHP 

GPAOP 

/LOAD address in .REl format 

SAD 

(000003 


JMP 

RLQINS 

/RELOCATABLE INSTRUCTION 

SAD 

(000004 


JHP 

CONST 

/CONSTANT 

SAD 

(000005 


JMP 

AUPNTR 

/address POINTER 

SAP 

JMP 

(000027 

SA 

/STARTING address 

SAD 

(000031 


JMP 

8KM0DE 

/SET TO bank mode RELOCATABLE 

SAD 

(000032 


JMP 

PGMOPE 

/SET TO PAGE MODE RELOCATABLE 

JMS 

GETWRU 


JMP<* 

, EJECT 

INTPRT 

/DONIT load anything 


o 


o 
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UQAUE^H 

SRC LOAD PROGRAMS POR INTERACTIVE MODE, 


o 


102036 

LOADD 

0MS 

GETWRp 


o 


0214^ 

741100 


SPA 





02145 

602151 


JMP 

LDAPPL 

/ERROR 

o 

o 

02146 

343241 


TAD 

cldadR 

/ADO TO POINTER 


02147 

043253 


DAC 

SLDAOH 




02150 

622122 


JMP<^ 

INTPRT 



o 




/ 



o 


02151 

203360 

EDADPE 

lAC 

(LCMSG»1*400000 

/ERROR 



02152 

100460 


JMS 

Ts;xBf 


o 

o 

02153 

223230 


uc» 

xi 



02154 

043221 


DAC 

A 




02155 

223231 


LACtt 

X2 


o 

o 

02156 

043222 


DAC 

An 



02157 

203347 


EAC 

( A«1 




02160 

100460 


JMS 

TSJXE^T 



o 

02161 

700312 


KRB 


o 


02162 

600122 


JMP 

/ 

JMS 

GETMON+2 



o 

02163 

102036 

RLOINS 

GLTWRO 

/GET the INSTUCTION 

o 


02164 

043257 


DAC 

TEMPER 

/THAT Has to have 


o 

02165 

203241 


LAC 

cudapR 

/THE ADDRESS PORTION 

o 

02166 

503251 


AND 

pgorbR 

/MODIFIED, 


02167 

343257 


TAD 

TEMPE ' 



o 

02170 

063253 


DACtt 

sudadk 


o 

02171 

443253 


IS2 

SLOAPR 



021/2 

622122 


JMPi» 

/ 

JMS 

1 NTPRf 



o 

02173 

102036 

CONST 

GETWRP 

/CONSTANT SO JUST 

o 


02174 

602170 


JMP 

/ 

JMS 

1 ®4 

/PUCE IN MEMORY 


o 

02175 

102036 

ADPNTR 

getwrp 

/address pointer 

O 


02176 

343241 


TAD 

9LPAOR 




02177 

6021/0 


JMP 

1 •’7 



o 




/ 


O 


02200 

203346 

SA 

LAC 

^SLINK 

/PUT THE STARTING ADDRESS 



02201 

043257 


DAC 

TEMPE 

/OE THE PROGRAM IN AN 

O 

o 

02202 

02203 

223257 

741200 


LAC» 

SNA 

tempe 

/EMPTY SLOT OE SYSTEM 

/LINK Table 



02204 

602207 


JMP 

t+3 

O 

w 

02205 

443257 


ISI 

TEMPE 



02206 

602202 


JMP 

t >54 




02207 

102036 


JMS 

GETWRP 


O 

o 

02210 

343241 


TAD 

clpadR 



02211 

063257 


PACO 

TEMPE' 




02212 

622122 


JMPo 

jntprt 


O 

o 




, EJECT 




o o 

o o 


o 


o 



o 
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l.qape:h 

SRC I^OAC 

1 PROGRAMS FOR II 

o 

02213 

000000 

PBPRSU 

0 



02214 

043255 


DAC 

TLMP# 


022153 

203222 


LAC 


o 

02216 

744010 


RCL 



02217 

100533 


JMS 

LR0T6 


02220 

043260 


DAC 

TEMPi^ 

o 

02221 

740020 


RAR 



02222 

503277 


AMO 

(777700 


0222v5 

243255 


XOR 

TEMP 

o 

02224 

043222 


OAC 



0222!? 

203260 


UAC 

TEMPI 


02226 

503276 


AND 

(77 

o 

02227 

043260 


DAC 

TEMPI 


02230 

203221 


L,AC 

A 


02231 

100533 


JMS 

LHQT6 

o 

02232 

503277 


AMD 

(777700 


02233 

243260 


XOR 

TEMPI'* 


02234 

043221 


DAC 

A 

o 

02235 

622213 


JMP« 

/ 

0 

PBPRSL 


02236 

000000 

RR0T6 


o 

02237 

742020 


RTR 



02240 

742020 


RTR 


o 

02241 

742020 


rtr 


02242 

622236 


J M P •*>' 
/ 

0 

RRQT6 


02243 

000000 

PR2DD 


o 

02244 

143262 


D^M 

TENS# 


02245 

503276 


AND 

(000077 


02246 

740200 


S2A 


o 

02247 

602255 


JMP 

1 *6 


02250 

760260 


lAW 

260 


02251 

100522 


JMS 

TYRONE 

o 

02252 

760260 


LAW 

260 


02253 

1 00522 


JMS 

TYRONE 


02254 

622243 


J0P^ 

PR2DD~ 

o 

02255 

343361 


TAD 



02256 

741100 


SPA 



02257 

602262 


JMP 

,'*’3 

0 

02260 

443262 


IS2 

TENS 

02261 

602255 


JMP 

1 ■! 4 


02262 

043263 


DAC 

UNITS» 

o 

02263 

203262 


LAC 

TENS 


02264 

343362 


TAD 

(260 


02265 

100522 


JMS 

TYPONE 

0 

02266 

203263 


LAC 

UNITS'" 


02267 

343363 


tad 

(12 


02270 

343362 


TAD 

(260 

o 

02271 

100522 


JMS 

TYPONE 


02272 

622243 


J M P ^ 
•EJECT 

PR20D“ 


/DOUBLE PRECISION SHIFT LEFT ROUTINE 

SIX 6 bit chopped ascii characters 


/shift AC 6 PLACES TO RIGHT 


/PRINT TWO DECIMAL DIGITS UP TO 6A 


o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 


o 


o 



- — 



- ■■ ' 

— ■ ■■ ■■ ■ 


. — — 

— 







o 












o 

o 












o 


PAG^: 2X 

LOADER 

SRC t,OAD programs FOR JNTERACTIVE MODE 

1 







o 

02273 

000000 

OBPRSR 0 









o 


02274 

760334 

LAW 

000334 

/REPLY 

WITH BACK 

SLASH AND 

PERFORM 





02275 

100522 

JMS 

TYRONE 

/A DOUBUE 

PRECISION SHIFT RIGHT 



o 

o 

02276 

203222 

LAC 

B 

/WITH 

the 

SIX CHOPPED ASCII 





0227 7 

745200 

SNA JCLL 


/BYtES 

1 THEY ARE 

IN LOCATIONS ”A” AND 




o 

02300 

602321 

3MP 

LOADRM 


THE 

FORMAT 

Is A1 I A2 I 

A3|BL,S2,B3, 



o 

02301 

503277 

AND 

vniim 









02302 

102236 

JMS 

RRQT6 










02303 

043222 

DAC 

8 








o 

o 

02304 

203221 

LAC 

A 









02305 

741200 

SNA 











02306 

602321 

JMP 

UOAORM 








o 

o 

0230 7 

744020 

RCR 










02310 

102236 

JMS 

RROT6 









o 

02311 

043221 
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03140 

034070 
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047777 
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